www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/admin/Admin_Culture.asp
<!--#include file="conn.asp"--> <!--#include file="admin.asp"--> <script language=javascript> function ConfirmDel() { if(confirm("确定要删除此记录吗?")) return true; else return false; } </script> <%if Request.QueryString("mark")="southidc" then dim SQL, Rs, contentID,CurrentPage CurrentPage = request("Page") contentID=request("ID") set rs=server.createobject("adodb.recordset") sqltext="delete from culture where Id="& contentID rs.open sqltext,conn,1,3 set rs=nothing conn.close response.redirect "Admin_Culture.asp" end if %> <% set rs=server.createobject("adodb.recordset") sqltext="select * from culture order by id desc" rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=20 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage for i=1 to len(request("page")) checkpage=instr(1,text,mid(request("page"),i,1)) if checkpage=0 then exit for end if next If checkpage<>0 then If NOT IsEmpty(request("page")) Then CurrentPage=Cint(request("page")) If CurrentPage < 1 Then CurrentPage = 1 If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount Else CurrentPage= 1 End If If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if Else CurrentPage=1 End if call list '显示帖子的子程序 Sub list()%> <!-- #include file="Inc/Head.asp" --> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <br> <strong><br> </strong> <br> <br> <table width="560" border="0" cellpadding="2" cellspacing="1" class="table_southidc"> <tr> <td class="back_southidc" height="25"> <div align="center"><strong>企业文化 <br> </strong></div></td> </tr> <tr class="tr_southidc"> <td><div align="center"> <table width="100%" border="0" cellspacing="2" cellpadding="3"> <tr> <td width="8%" height="25" bgcolor="A4B6D7"> <div align="center">ID</div></td> <td width="62%" bgcolor="A4B6D7"> <div align="center">标题</div></td> <td width="10%" bgcolor="A4B6D7"> <div align="center">操作</div></td> <td width="10%" bgcolor="A4B6D7"> <div align="center">操作</div></td> <td width="10%" bgcolor="A4B6D7"> <div align="center">操作</div></td> </tr> <% if not rs.eof then i=0 do while not rs.eof %> <tr bgcolor="#DFEBF2"> <td height="22"> <div align="center"><%=rs("id")%></div></td> <td> <%=rs("title")%></td> <td> <div align="center"><a href=../cultureNewsInfo.asp?Id=<%=rs("id")%> target="_blank">查看</a></div></td> <td> <div align="center"><a href="Admin_Editculturenews.asp?id=<%=rs("id")%>">修改</a></div></td> <td> <div align="center"><a href="Admin_Culture.asp?id=<%=rs("id")%>&mark=southidc" onClick="return ConfirmDel();">删除</a></div></td> </tr> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %> <tr> <td height="25" colspan="5" bgcolor="A4B6D7"> <div align="right"> <% Response.write "全部-" Response.write "共" & Cstr(Rs.RecordCount) & "篇文章 " Response.write "第" & Cstr(CurrentPage) & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "<a href='Admin_Culture.asp?&page="+cstr(1)+"'> 首页 </a>" Response.write "<a href='Admin_Culture.asp?page="+Cstr(currentpage-1)+"'> 上一页 </a>" Else Response.write " 上一页 " End if If currentpage < Rs.PageCount Then Response.write "<a href='Admin_Culture.asp?page="+Cstr(currentPage+1)+"'> 下一页 </a>" Response.write "<a href='Admin_Culture.asp?page="+Cstr(Rs.PageCount)+"'> 尾页 </a>" Else Response.write "" Response.write " 下一页 " End if Response.write "转到第" response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>" for i = 1 to Rs.PageCount if i = currentpage then response.write"<option value='Admin_Culture.asp?page="&i&"&id="&id&"' selected>"&i&"</option>" else response.write"<option value='Admin_Culture.asp?page="&i&"&id="&id&"'>"&i&"</option>" end if next response.write"</select>页" %> </div></td> </tr> </table> <% End sub rs.close %> </div></td> </tr> </table> <br> <br> </td> </tr> </table> <!-- #include file="Inc/Foot.asp" -->